home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 September / 1984-09.d64 / screen head_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  45 lines
  1. 10 t=0:forj=688to703:readk:t=t+k:pokej,k:next
  2. 15 ift<>3078thenprint"error in data statements":stop
  3. 20 t=0:forj=828to1006:readk:t=t+k:pokej,k:next
  4. 25 ift<>20306thenprint"error in data statements":stop
  5. 30 poke249,0
  6. 688 data32,188,190,226,172,225,191,251
  7. 696 data187,255,161,236,162,254,252,96
  8. 828 data 169,208,133,004,173,024
  9. 834 data 208,041,002,240,004,169
  10. 840 data 216,133,004,169,000,162
  11. 846 data 003,006,250,042,202,208
  12. 852 data 250,024,101,004,133,004
  13. 858 data 165,250,133,003,173,014
  14. 864 data 220,041,254,141,014,220
  15. 870 data 165,001,041,251,133,001
  16. 876 data 169,000,133,250,169,005
  17. 882 data 133,002,160,000,177,003
  18. 888 data 133,005,230,003,177,003
  19. 894 data 133,006,230,003,198,002
  20. 900 data 240,028,162,004,169,000
  21. 906 data 006,006,042,006,006,042
  22. 912 data 006,005,042,006,005,042
  23. 918 data 164,250,153,048,002,230
  24. 924 data 250,202,208,232,240,210
  25. 930 data 165,001,009,004,133,001
  26. 936 data 173,014,220,009,001,141
  27. 942 data 014,220,160,000,166,249
  28. 948 data 240,008,169
  29. 951 data 029:rem 032 if using a printer
  30. 952 data 032,210
  31. 954 data 255,202,208,250,169,004
  32. 960 data 133,006,185,048,002,170
  33. 966 data 189,176,002,133,005,041
  34. 972 data 064,240,005,169,018,032
  35. 978 data 210,255,165,005,041,191
  36. 984 data 032,210,255,169,146,032
  37. 990 data 210,255,200,198,006,208
  38. 996 data 221,169,013,032,210,255
  39. 1002 data 192,016,208,196,096
  40. 1003 print"[147]     x = number between 0 and 35"
  41. 1004 print"     y = number between 0 and 255"
  42. 1005 print"     poke249,x  (spacing)"
  43. 1006 print"     poke250,y  (letter)"
  44. 1007 print"     sys828  to activate"
  45.